home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / refxmpl / stopchan.bas < prev    next >
BASIC Source File  |  1998-04-07  |  186b  |  13 lines
  1. sndRef = LoadSound("Whiz")
  2.  
  3. Looper:
  4. CLS
  5. channel = LoopSound(sndRef)
  6. Rem Loop for 10 seconds
  7. Sleep 100
  8. StopChannel(channel)
  9. Input "Loop again? (y/n)",y$
  10. If y$ = "y" Then Goto Looper
  11. End
  12.  
  13.